home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 101 / Tiger_Disk_101_20xx_Tiger-Crew-Disk_de_Side_B.d64 / spriteshow. [tc] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  61 lines
  1. 10 poke53280,15:poke53281,15:ifb=0thenb=1:gosub110:t$=" * taste *":gosub380
  2. 20 ifa=1thenpokev+21,1:goto130
  3. 30 print"[147] +[146] = naechstes / -[146] = vorheriges sprite":print" e[146] = ende ";
  4. 40 print"[156]der anzeige":print" [156]programm-ende = return[146] bei 'filename'"
  5. 50 a$="":input" filename   $[157][157][157]";a$:ifa$=""thenend
  6. 60 ifa$="$"thengosub230:print"[147]":goto50
  7. 70 a$=a$+"*":open2,8,2,"0:"+a$+",p,r":gosub290:ifaa<>0thenprint"[147]":goto50
  8. 80 open2,8,2,"0:"+a$+",p,r":get#2,a1$,a2$
  9. 90 d=asc(a1$+chr$(0))+256*asc(a2$+chr$(0)):close2:print"[147]st.-adr.:"d:x=d/64:ab=x-1
  10. 100 a=1:loada$,8,1
  11. 110 f(1)=14:f(2)=2:f(3)=1:v=53248:pokev,100:pokev+1,100:pokev+23,1:pokev+28,1
  12. 120 pokev+29,1:pokev+37,f(1):pokev+38,f(2):pokev+39,f(3):poke2040,13:return
  13. 130 print"[147]";:gosub200:gosub590:fori=0to63:poke832+i,peek(x*64+i):next
  14. 140 getw$:ifw$=""then140
  15. 150 ifw$="+"thenifx<=1023thenx=x+1:goto130
  16. 160 ifw$="-"thenifx=>1thenx=x-1:goto130
  17. 170 ifw$="e"thena=0:pokev+21,0:gosub600:print"[147]":goto50
  18. 180 w=asc(w$):ifw>132thenifw<141thengosub420:goto140
  19. 190 goto140
  20. 200 ifx<1thenprint"speicheranfang!";:goto220
  21. 210 ifx>1022thenprint"speicherende  !";
  22. 220 return
  23. 230 print"[147]":open1,8,0,"$":poke781,1:sys65478:getaa$,aa$:ee$=chr$(0)
  24. 240 getaa$,aa$,hh$,ll$:ifstthensys65484:close1:goto280
  25. 250 printasc(hh$+ee$)+256*asc(ll$+ee$);
  26. 260 getaa$,bb$:ifaa$thenprintaa$bb$;:goto260
  27. 270 printaa$:goto240
  28. 280 print""tab(5)t$:gosub320:return
  29. 290 open15,8,15:input#15,aa,bb$,cc,dd:ifaa<>0thenprint"  diskfehler ":goto310
  30. 300 close2:close15:return
  31. 310 printaa;bb$;cc;dd:print""t$:gosub320:goto300
  32. 320 poke198,0:wait198,1:poke198,0:return
  33. 330 print" * hinweis *":print" die farben der sprites":print" koennen mit den tasten"
  34. 340 print"     f1 - f6 ,":print" die hintergrundfarbe":print" kann mit"
  35. 350 print"     f7 + f8 ,":print" geaendert werden."
  36. 360 print"[156] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print"[156]  der  filename  kann "
  37. 370 print"  abgekuerzt ohne[156] '*' ":print"  eingegeben werden ! ":gosub320:return
  38. 380 print"[147]":poke214,6:poke211,8:sys58640:print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  39. 390 printtab(8)" tiger-disk praesentiert ":printtab(11)"[156][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  40. 400 printtab(11)" spritefile-shower ":printtab(11)"(w)  tigercrew 2002"
  41. 410 gosub320:print"[147]":gosub330:return
  42. 420 ifw=133thenf(1)=f(1)+1:gosub560:goto500
  43. 430 ifw=137thenf(1)=f(1)-1:gosub560:goto500
  44. 440 ifw=134thenf(2)=f(2)+1:gosub560:goto510
  45. 450 ifw=138thenf(2)=f(2)-1:gosub560:goto510
  46. 460 ifw=135thenf(3)=f(3)+1:gosub560:goto520
  47. 470 ifw=139thenf(3)=f(3)-1:gosub560:goto520
  48. 480 ifw=136thenf(4)=f(4)+1:gosub560:goto530
  49. 490 ifw=140thenf(4)=f(4)-1:gosub560:goto530
  50. 500 pokev+37,f(1):return
  51. 510 pokev+38,f(2):return
  52. 520 pokev+39,f(3):return
  53. 530 poke53281,f(4):iff(4)=1thenpoke646,0:print"[147]";:gosub590:goto550
  54. 540 iff(4)<>1thenpoke646,1:print"[147]";:gosub590
  55. 550 return
  56. 560 forte=1to4:iff(te)>15thenf(te)=0
  57. 570 iff(te)<0thenf(te)=15
  58. 580 next:return
  59. 590 print"sprite #"x-ab:return
  60. 600 print"[147]end-adresse des letzten sprites:        "(x+1)*64:gosub320:return
  61.